	error := ini_ser()
	/*
	if error
	   ?? "error"
	   ?? error
	   quit
	else
	*/
	if set_ser()
	caracter := SPACE(1)
	   //do while caracter != 10
	      if set_ser()
		 lee_ser(@caracter)
		 ?? caracter
		 nKey := ASC(caracter)
		 ?? nKey
		 wait
	      endif
	   //enddo
	else
	      nKey := InKey(0)
	endif

